home *** CD-ROM | disk | FTP | other *** search
/ ETO Development Tools 2 / ETO Development Tools 2.iso / Essentials / Developer Essentials Nov 90 / Apple II / Apple.II.partition / Tools / DTS.Samples / SC24Teach / Teach.p / UEvent.p < prev    next >
Encoding:
Text File  |  1990-06-25  |  822 b   |  48 lines  |  [TEXT/pdos]
  1. {**********************************************************************
  2. {*
  3. {* Teach uEvent -- Version 3.0  (interface)
  4. {*
  5. {* Copyright (c)
  6. {* Apple Computer, Inc.  1986-1988
  7. {* All Rights Reserved.
  8. {*
  9. {* Developer Technical Support Apple II Sample Code
  10. {*
  11. {* This file contains the interface to the code which implements the 
  12. {* main event loop used by the Teach program.
  13. {*
  14. {**********************************************************************}
  15.  
  16. UNIT uEvent;
  17.  
  18. INTERFACE
  19.  
  20. USES
  21.        types,
  22.        locator,
  23.        quickdraw,
  24.        events,
  25.        controls,
  26.        windows,
  27.        dialogs,
  28.        menus,
  29.        stdfile,
  30.        GSOS,
  31.        resources,
  32.  
  33.        uGlobals,
  34.        uWindow,
  35.        uMenu;
  36.  
  37.  
  38.  
  39. procedure mainEvent;   {Main event handling loop which repeats until Quit}
  40.  
  41.  
  42.  
  43. IMPLEMENTATION
  44.  
  45. {$i uEvent.inc.p }
  46.  
  47. END.
  48.